home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Windows 1993 Fall / TestDrive Windows 1993 Fall.iso / dbase / samples / menus.prg < prev    next >
Encoding:
Text File  |  1993-03-09  |  2.1 KB  |  81 lines
  1. ******************************************************************************
  2. * PROGRAM NAME: MENUS.PRG
  3. *               SAMPLE PROGRAM FOR DEMONSTRATING HOW TO PRODUCE A
  4. *               HORIZONTAL BAR MENU AND FOUR POP-UP MENUS
  5. *               LANGUAGE REFERENCE
  6. * LAST CHANGED: 12/11/91
  7. * WRITTEN BY:   Borland International Inc.
  8. ******************************************************************************
  9. SET TALK OFF
  10. CLEAR
  11. MEdit = .F.
  12. DO Def_mens
  13. ON PAD View  OF Main ACTIVATE POPUP View_pop
  14. ON PAD Goto  OF Main ACTIVATE POPUP Goto_pop
  15. ON PAD Print OF Main ACTIVATE POPUP Prin_pop
  16. ON SELECTION PAD Exit OF Main ACTIVATE POPUP Exit_pop
  17. ON SELECTION POPUP Exit_pop DO Exit_pro
  18. ON SELECTION POPUP View_pop DO View_pro
  19. ACTIVATE MENU Main PAD View
  20. CLEAR ALL
  21. SET TALK ON
  22. RETURN
  23.  
  24.  
  25. PROCEDURE Def_mens
  26. *-- Main Menu
  27. DEFINE MENU Main
  28. DEFINE PAD View OF Main PROMPT "Add/Edit" AT 2,4
  29. DEFINE PAD Goto OF Main PROMPT "Goto/Search" AT 2,16
  30. DEFINE PAD Print OF Main PROMPT "Print" AT 2,30
  31. DEFINE PAD Exit OF Main PROMPT "Exit" AT 2,38
  32.  
  33. *-- Popup View_pop
  34. DEFINE POPUP View_pop FROM 3,4 TO 8,19
  35. DEFINE BAR 1 OF View_pop PROMPT "Add new record"
  36. DEFINE BAR 2 OF View_pop PROMPT "Edit"
  37. DEFINE BAR 3 OF View_pop PROMPT REPLICATE( CHR(196), 16 ) SKIP
  38. DEFINE BAR 4 OF View_pop PROMPT "Delete" SKIP FOR Medit
  39.  
  40. *-- Popup Goto_pop
  41. DEFINE POPUP Goto_pop FROM 3,16 TO 6,28
  42. DEFINE BAR 1 OF Goto_pop PROMPT "Skip"
  43. DEFINE BAR 2 OF Goto_pop PROMPT "Jump to"
  44.  
  45. *-- Popup Prin_pop
  46. DEFINE POPUP Prin_pop FROM 3,30 TO 7,42
  47. DEFINE BAR 1 OF Prin_pop PROMPT "Destination"
  48. DEFINE BAR 2 OF Prin_pop PROMPT "Options"
  49. DEFINE BAR 3 OF Prin_pop PROMPT "Eject page"
  50.  
  51. *-- Popup Exit_pop
  52. DEFINE POPUP Exit_pop FROM 3,38 TO 6,57
  53. DEFINE BAR 1 OF Exit_pop PROMPT "Quit"
  54. DEFINE BAR 2 OF Exit_pop PROMPT "Exit to dot prompt"
  55. RETURN
  56.  
  57. PROCEDURE Exit_pro
  58. DO CASE
  59.   CASE BAR() = 1
  60.     QUIT
  61.   CASE BAR() = 2
  62.     DEACTIVATE MENU
  63. ENDCASE
  64. RETURN
  65.  
  66. PROCEDURE View_pro
  67. DO CASE
  68.   CASE BAR() = 1
  69.     APPEND BLANK
  70.     EDIT NEXT 1
  71.   CASE BAR() = 2
  72.     EDIT NEXT 1
  73.     MEdit = .NOT. Medit
  74.   CASE BAR() = 4
  75.     DELETE
  76. ENDCASE
  77. RETURN
  78.  
  79. *-- EOP: Menus.prg
  80.  
  81.